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арала ааа аа Ба 
в, пивюшято 

ЗВЕНЕ 1 
WE: 

firm irl ERA, ~ 
MANT 
Charles Angel : 

ЭЖЕХЛт | BRK EE 
Б EB T ЕГО 
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КН» ПТО ЛЕН МУ EIC о RT 
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РА ТО SOS IR THE BASIC 
B io DENODIS. зари o rmt em 
ШЫ уко» DUC OE ME ROCA SC 3E А — 
кшех, РСА 
IB ЖНЕТ TON keyin ARER ЯВНІ 
ари ° 

ЛЕМ F (B FT DATE SBS АСТИ 
KOCH» ЖЕНИ (EE) (X 
БИМ ия > 

ЫТ Е (BEF GW-BASIC 3.22) : 

«ня: 

l ЛЕВИ ЕН ите DOS FAT SOUND 

СОИ HEME HEFS B2000 > RE : 











Е 
CKADLIB.BAS ВЕ К 127 № 
DISK 1 \CLOCKF Ае • 











и 





ЖЕ: GEH 24/D BEM > МУРУ ПОТЕРТИ O > 
ЖЫН GEM e fiac e 1: 00: 00—1: 59: SHRIKE BL 


БЕ, 2:00: 00 
ж. 


РАИ 
10 DEFINT 1-27-10 

20 ок ERROR GOTO 4790 

за SOUND DRIVER BASIC INTERFACE EXAMPLE. 
018 

50 КЕТ OFF:CLS: DIN SETSQO) СТСАС8,96),СТС0(8, 128):511-1 

© OPEN "settine.dat" AS #1 ЕВ 

70 FIELD #1,8 AS SETIS 

80 СЕТ #1,1 

90 IF LOF(1)=0 TIEN SETSCO)-T ES: CLOSE:KILL. "sett ine. dat" 
100 IF LOF(1)O0 THEN SETS(O)=SETIS 


—2: 





: 59801 MORE » LAE 














SOUND B2000 110 CLOSE 
2. ЖЕ В settine.dat ЖЕШ, IR = 10 
ЖЕН, ARRAMAT (AHF) i мо S00:51-0:S2.0:S3-0:S-0:S8-0: ша RESET идем 

17:27: 00 10 1= am ° 

— 160 FUNCSIZE = 66: REM CODE SIZE 
3. EE RB о 170 Ий МАСЫ FUNCSIZE /2 +1): REM CODE ARRAY 

2 — 
У 2 


36 7 


































180 DIM INSTRUC 26) 
150 DIN INSTRINI( 26 
200 DIN INSTRUN2( 26) 
210 REN 

EIL 

EI 

^240 MEM = YARPTR( INSTRUM(0)) 

250 FOR 1-1 TO 52:READ БІТЕСРОКЕ NEM, BTTE-YDI-NDIL:NEIT 1 
260 МЕ = YARPTRC. INSTRUNI(0)) 

270 FOR 1=) TO 52:READ BYTE:POKE MEN, BYTE: NCC МЕК 1 
280 MEN = YARPTR( INSTRU (0) ` 

290 FOR 1-1 то 52:READ BYTE:POKE MEN, BYTE: МЕ 1: NEXT. 1 
300 иж LOAD CODE (SOUSDBAS. SK) INTO FUNCK ARMAY 
310 1x. 

320 MEM = VARPTRC РОХСКО)) 

29 FOR 1 = 1 10 FUNCSIZE 

340 READ BYTE 

350 ЖЕ ШЕ, BYTE 
360 им = МЕМ 
270 уйт! 

380 Сов 960 
КТ 

400 иң 

410 GOTO 1170. 

420 а PLAY SONGS 

490 IP 31-0 TIEN RETURN 

440 ПР FLAG9=1 THEN FLIG9-0:LOCATE Y-4, 19:0070 460 
480 ПР МІКС THEN RETURN ELSE LOCATE 1-4,19 

460 50-0:60SUB 910:50- 
ATO 50-9:51:120:52-0:53-1:00608 910:50-3: 
480 LOCATE Y-4, 19:PRINT CIRS(1) 

490 50-12:51-0:0060В 910:50-8:51-1:52-1:53:0: 
500 80«16:52:0:53-1:YBIE VIRPTR( FUNC(O)). 
510 CALL МЕМ (SO , INSTRO() , S2, 53, 54, 55) 
520 FOR Q-0 TO S0N:S0-15 

830 ПР SON-95 TIEN SI-CTCA(0,0) 


REM TINBRE DTA 
REM TINBRE DATA 
REN TINBRE DATA 








LOAD TINBRE INTO ARRAY, FRON DATA 









SET UP SOUND DRIVER 















-СТСАК1 0): 3-СТСА(2,) 
:S2-CTCBCI, Q):83-CTCN 2,0) 
580 ПР 51-100 TIEN GOSUD 2680:G0T0 580 
560 ІР INT(q/18)-Q/18 TIEN GOSUB 2680 





590 50-8:51-0:52-10:53-0:4-1:00608 910 
600 LOCATE Y-4, 19:PRINT CHRS(2) 

610 80-16:52-0:3-1:4EN-VARPTRC FUNC(0)) 

620 CALL MEN (S0, INSTRINI (0) 82,3, 4, 55): FOR 0-0 TO SOS 
60 90 = 15 

640 ПР 504595 THEN SI=CTCA(3,Q):S2sCTCA(4,Q):S3-CTCA(5,Q) 
650 ПР SON=127 THEN SI-CTCR(3,Q):S2-CTCB 4, Q):S2-CTUN(5,) 
'INT(Q/18) THEN 60508 2680 





710 S0=16:S2-0:S3=1:NER-VARPTR( FUNC(0)) 

720 CALL MEN (50, IRSTRIVZ(0),52,53,4,55): FUR 4-0 TO SON 
73050 = 15 

140 IF S0N=95 TIEN 51-СТСА (6,0) :52-СТСА(7 ):53-СТСАКВ 9) 
750 IF SON=127 THEN S1=CTCB(6, Q):S2-CTCB(7,Q):S3-CTCB(8,Q) 












4, 19:PRINT ОШ) 
800 S0-4:00808 910 

810 ІР 50-0 THEN LOCATE Y-4,19:PRINT “ 
820 AS- INKEYS:GOSUB 2680 

#30 IF ASOCIES(O)«CHESCIG) THEN 850 
840 50-3:51-0:00618 910:S0-5:00SUB 910:COLOR 7,0:CLS:END 
850 LOCATE Y-4,19:PRINT * * 

860 ІР 15-747 OR 45-75" TIEN 870 ELSE 790 

870 50-3:51-0:00508 910:50-5:00508 910:GOSUB 2490:RETURN 
880 SIP 
890 е 
эю реч 
910 MEN = YIRPTR( АСКО). 

920 CALL ИВМ 50, 51, 52, 53, S4, 55) 
90 RETURN 

94 REN 

560 REV LOAD SONGE INTO ARRAY ,FORW DATA 
960 FOR }:0 T0 100 

970 READ CTCACO, J),CTCA(1,J),CTCA(2, J) 
90 IF CICA(0,J)O100 THEN NEXT 

990 FOR J=0 то 100 

1000 READ СТОМЗ, J):CTCA(4, J; 
1010 CTCA(6, J)=-35:CTCACT, J)- 
1020 IF CICA(3,)O100 THEN NEXT 

1030 CICA(6,96)-100 

1040 FOR J-0 TO 150 

1050 READ CICB(0, J),CTCD(1, J),CTCB(2, J) 
1060 IF CICX(0,J)O100 THEN NEXT 

1070 АЖ 





SOUND DRIVER CALL 











1100 IF СТОҚЗ, 20100 THEN NEXT 

1110 CTCB(6, 128)= 100:RETURN 

1020 REM LOAD (50021) ARRAY INTO SOUND DRIVER 
1130 GOSUB 2680: DALY-VAL(LEFTS( TIMES, 2)) 

1140 IF INT(DALY/2)=DALY/2 THEN SON-95 ELSE SON-127 
1150 RETURN 











1160 иш сох 
1170 Yz10:PRINT CIBSCZD ; 
1180 совев 1860 


1190 DIN 1056) CIS (6) C25 (6), Зб) Сб), CI58(6) 
1200 DIN CK6S(6) ,CK78(6) ,CK8S(6) ,CX95(6) СК. 

1210 FOR 1-0 0 6 

1220 READ СКОБ), СКЛІ) ЖОВ ОЗ) КАВИ) КБ 





















1620,1640 





1240 FOR 1-0 10 6 

1250 READ CK6S(1),CK75(1),CKBS(1),CK9S(1),CES(1) 

1260 NEXT | 

1270 БОБІВ 4890 

1280 CLEI-VAL. (LEFTSCTIES, 1)):CLK2 їн, (MIDS(TIYES,2,1)) 
1290 WIN1-YAL QIDSCTDIS, 4, 1)) INZ- VIL. (NIDSCTINES,5,1)) 
1300 SEIzVAL (МОСТІ, 7, )) :SE2- VAL. (RIGITS(TIIES, 1)) 
1310 AS=INKEYS 

1320 IF AS=CHRS(0)*CHRS(16) THEN COLOR 7,0:CLS:END 

1330 ІР NOTCAS-CHRS(0)*CHIS(3T)) ТНЕУ 1350 

1340 12-1-2:X1-55:12-58: 3-61: FLAG 1=0:GOSUB 2140 

1350 ІР NOTQAS-CHES(0)*CHIS(32)) THEN 1370 

1360 Yz-Ye1 13-35: 4-37: FLIGI-2:G0SUB 2740 








1310 ІР NOT(AS-CHRS(0)*CHRS(20)) THEN 1400. 








L (WIDSCTIMES, 7, 1)):SE2=VAL. (RIGITSCTIES, 1)) 
1400 IPAS-'s" OR AS-'S" THEN 0508 2490 
1410 IF TIVES-SETS(O) THEN FLAG9=1:GOSUB 1130:00508 430 





1420 1057:1F. THEN (0508 1460:00508 1660. 

1430 ОХ SE2 60508 480, 1500, 1520, 1640, 1560, 1580, 1600, 
1620,1640 

1440 0070 1280 

1460 дем Print 0,1,2,3,4,5,6,7,8,9 


1460 COLOR 0,7:FOR 1-0 то 6 

1470 LOCATE Y=! 10: PRINT CKOS(I) NEYT:COLOR 7,0: RETURN 

1480 COLOR 0,7:FOR 1-0 то 6 

1490 LOCATE Y, XO: PRINT CEISCI):NEXT: COLOR 7,0:RETURN 

1800 COLOR 0,7:FOR 1-0 10 6 

1510 LOCATE Хел X0: PRINT CK2S(1):NEXT:COLOR 7, 0:RETURN 

1520 COLOR 0,7:F0 1-0 TO 6 

1590 LOCATE Y«1, XO: PRINT CKOSCI):NEXT: COLOR 7,0: KETURN 

1540 COLOR 0,7:F0 1-0 TO 6 

1550 LOCATE Те XO:PRINT CASCI):NEIT: COLOR 7,0: RETURN 

1560 COLOR 0,7:FOR 1-0 TO 6 

1570 LOCATE Y, XO: PRINT CKSSCI):NEIT: COLOR 7,0:RETUIN 

1580 COLOR 0,7:FOR 1-0 то 6 

1590 LOCATE Ye L,XO:PRINT CKGS(L) :NEIT:COLOR 7,0:RETURN 

1600 COLOR 0,7:FOR 1-0 то 6 

1610 LOCATE Ye1,XO:PRINT CETS(I):NEXT:OQLOR 7,0: RETURN 

1620 COLOR 0,7:FOR 1-0 то 6 

1630 LOCATE Y«1,X0:PRINT. CKBSI):NEXT: COLOR 7,0:RETURN 

1640 COLOR 0,7:FOR 1-0 TO 6 

1650 LOCATE Y«1, X0: PRINT CKOSC1)-NEXT:OQLOR 7,0: RETURN 

1660 Х0-51:1Р SEleO TIEN СОБИВ 1460:GOSUB 1690:RETURN 

1670 ON SEI 60508 1480, 1500, 1520, 1940, 1560 

1680 RETURN 

1690 10-41: IF WIN2=0 THEN 00508 1460:60UB 1720: RETURN 

1700 ON тка GOSUB 1480, 1500, 1520, 1540, 1560, 1580, 1600, 
1620, 1640 

1710 RETURN 

1720 10-35 

1730 ПР WIN1=0 THEN GOSUB 1460:GOSUB 1770 ELSE 1750 

1740 БОБІВ 1130:G0SUB 430:RETURN 

1150 ON INI БОБІВ 1480,1500,1520,1540,1560 

1760 RETURN 

1770 X0225:1F СЩО-О TEN 60508 1460:G0SUB 1800:RETURN 

1780 ON CLK2 GOSUB 1480, 1500, 1520, 1540, 1560, 1580, 1600, 
































1790 RETURN 
1800 X0-19: IF 041000 THEN 1830 

1810 00508 1460: 0CATE Y-2,30:COLOR 0,7:PRINT DATES 
1820 COLOR 7, 0:8ETURN 

1830 ок CUKI 00508 1480, 1500 

1840 RETURN 
1650 та 

1860 GOSUB 2560 
1870 LOCATE Y-5, IS: PRINT. "HEJA: LOCATE Y-5,63:PRINT “HERE 
INT "Я САТЕ Y-4,65: PRINT "lf 

INT "аа: LOCHTE 1-3, 29: PRINT 746 
AL PRINT "ЯЕШСИЕ 1-3,53: PRINT УД. 

INT зб 

INT "АЯ САТЕ 1-2,28: PRINT "M 
INT "MISLOCATE Y-2,53: PRINT "Ж 
ur 

INT ° CSEIOCATE Y-1,28:PRINT "i 
AL PRINT “fE: LOCATE Y-1,53:PRINT "Ë 
1970 LOCATE Y-1,63:PRINT "ЖА 

1980 LOCATE Y«7, 15:PRINT “HEFE: LOCATE Y7, 40:PRINT "3E 
"md 

езика Y«8,40:RINT "Wf 

5 "ж 

2020 LOCATE 159, 15: инт "чая: сите Y9,40:PRINT "fj 
2030 LOCATE 9,6: PRINT f 

2040 LOCATE 110, IS: PRINT 74Ң-ИХАТЕ Y«10,40: RINT "Mt 
2090 LOCATE Y-10,65: PRINT "Mi 

72060 LOCATE Ye11, IS: PRINT "КИ LOCATE Y1, 40:PRINT "f 
2070 LOCATE Y«11,65: PRINT в 

2080 LOCATE Y-12, 15: PRINT 74 
72090 LOCATE Y«12,65: PRINT "Wt 

72100 LOCATE 1513 I5: PRINT ° CRI:LOCATE Y«13,40: PRINT "f 
2110 LOCATE Y+13,63: PRINT "idt 

2120 FOR 1-18 T0 62 

2130 LOCATE Y-5, PRINT А 

2140 IF 12-60 THEN 2170 

2150 LOCATE ТП РІК E 

2160 LOCATE 1+9 1:PRINT "RR 

2170 IF 15 40 THEN 2200 


Screen Shov Control 














шосте Y+12,40:PRINT "Mf 




















2180 LOCATE у» ІКТ За. 
2190 LOCATE Y+13, 1:PRINT а. 

т IF 1=41 08 1-28 OR 1-53 THEN 2240 
2210 LOCATE Y-3, 1:PRINT "EI 

2220 LOCATE Y-3,1:PRINT за. 

2230 LOCATE Y-1,1:PRINT "E 

2240 зет 

2250 FOR 1-1 107 


2260 LOCATE 1-11 IT: PRINT "RESCOLOR 0,7. 





2300 LOCATE Y-4,7I: PRINT “Adlib _ Card 
,IT:PRINT "Today Date” 
,30:COLOR 0,7:PRINT DATES:COLOR 7,0 
43:PRINT "Call Tine" 

LOCATE 1-2,55: PRINT SETS(O):O0LOR 7,0 
,ST:PRINT `”: OCATE 1-2,60:PRINT 7: 
2360 LOCATE Y«10,41: COLOR 0, 7: PRINT "[MIt-T] :COUXR 7,0 


Clock" 



















LOCATE 1-10, 48:PRINT 
LOCATE Y-12,41:PRIT 
LOCATE Ye12,4: PRINT" 
LOCATE 18, 17:00LOR 0,7:PRINT "(Alt-Q]*:oUoR 7,0 
0) LOCATE 18,26: РТ * СЕ 
LOCATE Y*8,41:PRINT ГАИ] 0068 7,0 

LOCATE Y-À,48:PRINT" Set up Call Time" 

LOCATE Y-10,21:PRINT “Set Sound [OV/OFF]* 

2460 LOCATE Y*10, 17:COLOR 0,T:PRINT "[S]" 

246) LOCATE 1*10,32: PRINT "ON":CüL 7,0 

ито RETURN 

2480 REN Control Sound ON or OFF 


==> Set up Time": OUR 0,7 
[21-0-0008 7,0 
Set up Date” 














2540 LOCATE Y-10,32: PRINT “ONT :RETURN 
550 RETURN 

2500 FOR 1-1 TO 31: 0CATE Y-9,24-T: RINT "ОМЕТ 

„3570 F-8:FOR Y-0 ТО 4 STEP 2 

(8580 LOCATE Y-F  23-V: RINT 7 :LOCATE Y-P, 56°F: PRINT "€T 
Nar 
жо LOCATE 1-6, 
3810 LOCATE 1-6, 
9620 Y-0;F-B:FOR. 
ЖУ FOR дет TO зет 

“жид LOCATE YF /24-Vet: PRINT "хет 
3650 NEXT Y 

2860 RETURN 

БГ] Second Shov 
02680 спели. (LEFTS(TIMES,1)):CLK2 =YAL (NIDSCTINES,2,1)) 
2690 MINI-VAL. (MIDSCTINES,4,1)):MIN2-YAL (NIDSCTINES,5,1)) 
2700 SEISVAL QUIDSCTIMES, 7,1)):SE2e VAL (RIGETSCTIES, 1)) 
710 YD-ST:IP SE2-0 THEN 00608 1460:G0SUB 1660 

272) OX SE2 GOSUB 1480, 1500, 1520, 1940, 1560, 1580, 1600,1620, 





















Input control 
OR FLAGI-0 TIEN Св 

























-2 THEN LOCATE Y2, T: PRINT "Input Date; " 
00 FOR J-0 TO J1 

2830 AS-INKEYS 

2840 IF 15-7" THEN GOSUB 2580:0070 2830 

A850 ІР NOT(AS-CHRS(13) AND FLAG1-0) THEN 2880 

2860 COLOR 25,0:LOCATE Y2,55:PRINT SETS(0):COLOR 7,0. 
2570 LOCATE Y2,57:PRINT 
2880 IF AS-CARS(13) THEN 3250 

2290 IF AS-CHRS(B) THEN J-]-1:008UB 3260 

2500 ПР AS-CHRS(27) THEN J-0:GOSUB 3270:GOTO 2830 

10 IF JOO TIEN 2930 ELSE 2920 

$20 IF FLAGI=2 AND (ASC(AS)>=50 OR ASC(AS)<=47) THEN 2830 
в IF 1-0 AND (ASC(AS)>=51 OR 15(05)<-47) ТНЕУ 2830 
2940 ПР J-l AND FLAGI-2 AND LEFTS(SEIS, ЕТ AND 


5. 

























да 


ze Hl] < 
жш / Ра 
КА 





(ASC(AS)>=51 OR 15С(15)<-47) TIEN 2830 

2060 IF FLAG1=2 AND 1-1 AND LEFTS(SE1S, 1)- 
(ASC(AS)>=58 OR А8С(15)<-48) TIEN 2830 

2960 IF J=1 ASD (ISCCIS))-58 OR ASCLIS) -4T) TIEN 2880 

2970 IF 241 AND LEFTSCSELS, 1)72 AND (ASC(AS)>=52 OR 
ASCUIS) 47) THEN 2830. 

2980 IF FLAGI-2 AND 1-2 AND LEFTS(SEIS,2)="02" AND 
(ASC(AS)>=51 OR ASC(A8)=47) THEN 2830 

2990 ІР FLAGI=2 150 J=2 AND (LEFTS(SEIS,2)="08" OR 
LEFTS(SEIS,2)="02") THEN FLAG3=1 

3000 IF FLAGI=2 AND J=2 AND (LEFTS(SEIS,2)="10" OF 


LEFTS(SEIS,2)="02") THEN FLAG3=1 

3010 IF FLAGI2 AND J-2 AND (LEFTSSEIS, 
LEFTS(SEIS,2)="02") THEN FLAG3=1 

3020 IF PLAGI=2 AND J=2 AND (ASC(AS)>=52 OR ASC(AS)<=47) 
тих 2830 

3030 ПР Je2 IND(ASC(AS)9=54 OR ASCCAS)<=47) THEN 2830 

3040 IF FLAGI=2 AND J=3 AND LEPTS(SEIS,3)="022" AND 
(ASC(AS)>=57 OR ASC(AS)<=47) TIEN 2830 

3050 IF FLAGI2 AND J=3 AND LEFTS(SEIS,3)="089" AND 
(ASC(AS)>=50 OR ASC(AS)<=47) THEN 2830 

3060 IF FLAGI=2 AND 1-3 AND LEFTS(SE1S,3)="109" AND 
(ASC(AS)>=57 0t ASC(AS)<=47) ТЕХ 2830 

3070 IF РИСІ» AND Je3 AND LEFTS(SEIS, 3)="123" AND 
(ASCLIS)2-50 OR ASC(AS)<-47) THEN 2830 

080 ІР FAGI-2 AND FLAG3=0 AND J3 AND 
(INT(YAL(LEFTS(SE18,2))/2)=YAL(LEFT8(SE18,2))/2) 
THEN FG2-1 

AND J=3 AND FLAG21 AND (ASC(AS)>=49 OF 

) TIEN 2830 

3100 IF FLAGI=2 AND FLAGZO1 AND MIDS(SEIS,3, 1)=°0" AND 

ANDCASC(AS)>=58 OR АЗС C-48). TIEN 2830 

АЮҚАЗС(А8)9-58 OR 48С(18)<-47) THEN 2630 








































































AND FLAGI-2 AND (ASC(AS)>=58 OR ASC(AS) 4T) 
TIEN 2830 

3130 IF J-4 AND FLAGO? AND (ASCCAS)>=54 OR БСХА) 47) 
THEN 2830 

3140 IP (J-5 OR 1-6 OR 157) AND(ASC(AS)>=58 OR ASCCAS)=47) 
TREN 2890 


3150 SEIS-SE1S+AS: COLOR 25,0 
3160 IF FLIGIO 2 THEN ON (241) 00508 3450, 3460, 3470, 3480, 
349,259 ELSE ОХ (241) GOSUB 3450, 3460, 3470,400, 

3490,3500,3510,3520 












3170 COLOR 7,0 

3180 ХЕТ J 

3190 IF FLAGLO? THEN SEIS-LEPTS(SE1S,6):SEIS-LEFTS(SE1S,2) 
*CS1S8MIDS(SE1S, 3, 2)*CSISPRIGITS(SE1S, 2) 

3200 IF FLAGI-2 THEN SEIS-LEFTS(SE1S,8):SE1S-LEFTS(SE1S,2)* 
CSISMIDS(SELS, 3, 2)*CSISPRIGITSSELS, 4) 

3210 IF FLAGI=2 AND YAL(RIGETS(SE1S,4))<1980 O£ 
YAL(RIGITS(SE1S, 332009. THEN BEEP:LOCATE 12,17: 
PRINT "Year Input Error":FOR 1-1 TO 200:ХЕХТ: 
LOCATE Y2, 17: PRINT SPACES(16):GOTO 2740 

3220 IF FLAGI=0 THEN SETS(0)=SE1S:GOSUB 3530 

3230 IF PLAG1=1 THEN TINES-SEIS 

3240 IF FLAG1=2 THEN DATES-SEIS:LOCATE Ү-2,30:0006 0,7: 
PRINT DATES: COLOR 7,0 

3250 IP FLAGIOO TIEN LOCATE Y2, 17: PRINT SPACES(22): 
RETURN ELSE RETURN 








3270 COLOR 25,0 
3280 LOCATE Y2, XI:PRINT ^^ 

PRINT CSIS:COLOR 25,0 
3290 LOCATE Y2XZ:PRINT ” "COLOR 7,0:LOCATE 12,292: 





COLOR 7 0: 0CATE 12,0192: 





3300 LOCATE Y2,X3:PRINT ° “:LOCATE 12,11: 
3310 IF FLAGI=2 THEN LOCATE УЖЕ "= 
3320 COLOR 7,0:8E1$-"": RETURN 

3030 SEISLEFIS(SEIS, J) 

3940 XI2-LEN(SEIS) 





INT osis 





3990 ІР 112-3 TIEN LOCATE Y2, 2+1: RINT CSIS:LOCATE 12, 
PRINT * ` RETURN 
3400 IF 1124 TIEN LOCATE Y2,X3:PRINT CSIS;* 7: 
3410 ІР 2-5 THEN LOCATE 2, I9*1:PRINT (515: 
IF FLAGI2 THEN LOCATE Y2, 14: INT * *:RETURN 














3420 ІР 12-6 AND FLAGI-2 THEN LOCATE Y2, XA: PRINT GSIS;* 7: 
RETURN 

3430 IF 12-7 AND РАСТЕ? THEN LOCATE Y2, X4+1:PRINT (513: 
RETUN 


3440 COLOR 7,0: RETURN 

3460 LOCATE Y2,X1:PRINT AS;CSIS:RETURN 

3460 LOCATE Y2, IL: PRINT AS:LOCATE Y2,X2:PRINT CSI 

ЗАТО LOCATE Y2 X2: PRINT. AS:LOCATE Y2, 2+1: PRINT CSI 

3480 LOCATE Y2,X2-1:PRINT AS:LOCHTE Y2, 3: PRINT CSI 

3490 LOCATE Y2,X3:PRINT AS:LDCATE Y2, ОМЕРИКТ CSI 

3500 LOCATE Y2,X9-1:PRINT AS:IF FLAGI-2 THEN LOCATE 12,4: 
PRINT CSIS:RETURS ELSE RETURN 

3510 LOCATE Y2,X4:PRINT AS:LOCATE Y2,X4+1:PRINT CSIS:-RETUUN 

3590 LOCATE Y2,X4+1:PRINT AS: RETURN 

3530 COLOR 0,T:LOCATE Y+12,18:PRINT "Save call аве?" 














3540 AS= INKEYS:GOSUB 2680 
3550 IF AS="y" OR 82717 THES LOCATE Y+12,33: PRINT "Y": 
0070 3570 








3560 IF AS="n" OR Ав THEN LOCATE 1512.18: 
PRINT SPACES(20):RETURN ELSE 3540 
3570 OPEN "settime.dat" AS #1 ЦВ 
3580 FIELD #1,8 AS SETIS 

3500 LSET SETIS-SETS(0) 

3600 мт #1,1 

3610 CLOSE 

3620 LOCATE Y-12, 18:PRINT SPACES(20) 
3630 GOSUB 4890: RETURN 

3640 ВЕЖ intrument war nba 

3450 DATA ANO), 4100, ANOS, 00,405, 0300, RHOD, B00, IO1 

3660 DATA 4800 00 HOO, АНОД, АНОО 05, LO, ME „5100 ANOT 
3670 DATA 2800. 

3680 DATA ABOO, ANOO, OO, ANOO, AHOL ог „6100 AOL A000 
3690 DATA 800 

3700 DATA ABOO, AOP АНОО,АНО1,АНОО M00, АНОО АЛОЭ A0 4103 
зто DATA uno 

3720 DATA 400,400 НОТ AO, O0 0, OO, ANOO, ної „2800. 
3790 ЕХ intrument guitar) 

3740 DATA O0, 000 01, M00, MS ANOO, LIF ROO, AOT 

3750 DATA HOO, 00, 800,72, ANOO, AIOP, AOO, AT „2400 вною 
3060 DATA 4100 

310 DATA АНОО,АНОО АНОО HOO, AMO „НО ANOO, OO, OI, АН 
3780 DATA 100 

2790 DATA OI AF. HOO, НОВ, 00, 4800, о S, 100,08 
3800 DATA BOO 

3810 DATA HOO, 800, 4800, OO, 100, 00, CO, оо вою вою 
3820 REN intrument tonl 

3890 АТА 00 400 804 OO, 10 400 UP OO, Нов 

3840 DATA NOO, 80, 4800, от, 40 05 „6100 „2100 „2100 A1100 
3850 DATA АО 

3860 DATA ABO, 00,00, OO, 0, 10 НОО IO, IO, АО 
3800 DATA АР 

3880 DATA 2110, ANOD, OO, 04, 00,00 OO, A110, ALIO, AF 
3890 DATA 4800 

3900 DATA 40,4300 4800, OO, OO 400, OO АНОО, АО о 
3910 tx 

3920 REN MACHINE CODE (SOUNDBAS. AS) 

3990 РАТА ADG, ASG, M57, 280, IC, ABB, ANSE, A14, AIBB, A197 
3940 DITA лав. 

3950 DATA AISE, AROA, ШЕ АЗ? 8, SE, LIC. ET 40037 2388 
3960 DATA ARSE 

3970 DATA AROE, ABFP, ВТ НАВ ANSE, LO, AHFF „2137 AHB3 НЕЕ 
3980 DITA Анто: 

3990 DATA 4475 MOT, ANIE, AHFF A176, AN2, ANEB, MG AO, KIB 
4000 DATA БЕ 

4010 DATA Та АНЕР ВНЗ Б НОТ ABB, ADC CD, GS, 
4000 DATA 1865 

4030 DATA A88, SE, UI AO, ANOT, ANSP, USE, AOT MICA, OC 
4040 DATA 100 

4050 DATA 9,1,1,9,3,4,7,1,4,9,1,2;7,1,2,4,1,1:RBU вова 
4060 DATA 7,1,24,1,24,1,2,2,1,2,4,2,1 

ат DATA 2,1,1,2,3,4,0,1,4,2,1,2,2,1,2,7,1,1 









5,1,4,4,1,2,2,1,2,4,2,1 
1,14.1,1,2/1,12,1,1,1 
4120 ITA 9,1,2,9,1,4,9,1,4,9,,2,7,1,2,9,2,1 
4130 DATA 12,1,1,12,1,2,12,1,2,11,1,1,7,1,1 











410 DATA 9,1,2,9,1,4,9,1,4,9,1,2,7,1,2,9,3,4,7,1,4,4,1,1 


йз DATA 7,1,1,7,3,4,7,1,4,7,1,2,7,1,2,11,1,1 
4152 DATA 9,1,2,9,1,4,9,1,4,9, 
412% DATA 100,100,100 
BATA 9,16,9,16,9,16,9,16 
DATA 7,16,7,16,7,16,7,16 ; 
4200 DATA 9,17,9,17,9,17,9,17 
4210 DATA 7,16,7,16,7,16,7,16 
422) DATA 9, 16,9, 16,9,16,9,16 
4230 DATA 9,17,9,17,9,16,9,16 : 
4240 DATA 7,16,7,16,7,16,7,16 
4250 DATA 9,16,9,16,9,16,9,16 : 
4260 DATA 9,16,9,16,9,16,9,16 
ZTO DATA 9,17,9,17,7,19,7,16 REW Da да G C 
ав DATA 7,16,7,16,7,16,7,16 :REX Ба 
4290 DATA 9,16,9,16,9,16,9,16 :REX да 
490 DATA 100 
(дю DATA -5,1,1,-5,1,1,-5,1,2,0,1,2,,1,2,,12 
492 DATA 7,2,1,5,2,1 
4590 DATA 4,1,1,4,1,1,4,1,2,2,1,2,0,1,2,-1,1,2 
4940 DATA -3,4,1 
бз) DITA -3,1,1,-3,1,1,-9,1,2,-1,1,2,0,1,2,2,1,2 
4060 DATA 2,2,1,-5,2,1 
4270 DATA -5,1,1,-5,1,1,-3,1,2,-1,1,2,0,1,2,2,1,2 
4980 DATA 4,4,1 
4990 DATA 7,1,1,7,1,1,9,1,2,7,1,2,5,1,2,4,1,2 
4400 DATA 4,2,1,-3,2,1 
4410 DATA 5,1,1,5,1,1,4,1,2,2,1,2,4,1,2,7,1,2 
и DATA 2,4,1 
из DATA 0,1,1,0,1,1,0,1,2,-1,1,2,-3,1,2,-5,1,2 
440 DATA 7,2,1,5,2,1 
4450 DATA -5,1,1,-5,1,1,-5,1,2,5,1,2,4,1,2,2,1,2 
460 DATA 0,4,1 
4470 DATA 100,100, 100 
MB) DATA 0,7,12,7,0,16,12,7 kN C 
4490 DATA -5,7,11,7,-5,-7,11,7 :9Е 07 
4500 DATA 0,7,12,7,0,16,12,7 REM С. 
4510 DATA -3,9,12,9,9,16, 12,9: да 








4520 DATA -3,9,12,9,9,16,12,9 RE да 
45% DATA -5,7,11,7,-5,-7,11,7 :RE 67 
4540 DATA -5,7,11,7,-5,-7,11,7 :REM 07 





4550 DATA 0,7,12,7,0,16,12,7 MEX С 

4560 DATA 0,7,12,7,0,16,12,7 СВЕЖ C 

4570 DATA -3,9,12,9,9,16,12,9 СВЕЖ да 
4580 DATA -5,7,11, 
4590 DATA -5,7,1,7,-5,-7,1,7 :RE G7 
4600 DATA 0,7,12,7,0,16,12,7 АЕ С. 

4610 DATA -5,7,11,7,-5,-7,11,7 Ей GT 
4620 DATA -5,7,11,7,-5,-7,11,7 
4630 DATA 0,7,12,7,0,16,12,7 
4640 DATA 
4650 DATA 
4660 DATA 
4670 DATA 
4080 DATA 
4690 DATA 
4700 DATA 
4710 DATA 
4720 DATA 


~ 







































«тю DATA "EUH. мет, SSD а,“ 
4730 LOCATE 1-12, 16: PRINT SPICES23): REM error control 
4800 IF ERI-GI THEN LOCATE T*12, 18: PRINT "Disk foll *:BEEP 
4810 IF 889-70 THEN LOCATE 1412,18: 
PRINT “Disk Write Procect 
4820 IF ERR-TI THEN LOCATE 1512, IB: PRINT "Disk not Ready": 
BEEP 
4830 FOR 1-1 то 1500:NHIT 
4840 LOCATE Y*12,16:PRINT "1СКоп тие or АДАогЕ" 
4850 15- NETS 
4860 ІР (бе'є" OR AS="C") AND ERR=61 THEN LOCATE 112,16: 
PRINT SPACES(Z3):GOSUB 4890: RESUME 3570 
4870 IF двете OR ASC" THEN LOCATE 112,16: 
PRINT SPACES (23): 00SUD 4890: RESUME 
4880 IP ив-тат OR А5-7А7 THEN CLS:SYSTEN ELSE 4850 
4890 салу. (LEFTS(TINES, 1)):CLK2 -YAL (MIDSCTIMES, 2,1)) 
4900 XINI-YAL (MIDS(TIMES, 4, МК, (MIDS(TINES,5,1)) 
4910 SEI-VAL. (MIDS(TINES, 7, 1)) :SE2- VIL. (RIGITS(TINES,1)) 
(11-1) 00508 1460, 1480, 1500 
4930 30-25:08 (С1121) GOSUB 1460, 480, 1500, 1520, 1540, 1560, 
1580,1600,1620, 140. 
4940 10:35:08 (MIN1-1) GOSUB 1460, M80, 1500, 1520, 1540, 1560 
4950 10:41:08 (МІХ) GOSUB 1460, 1480, 100, 1520, 1940, 1560, 
1580, 1600, 1620, 1640 
4960 10-51:0N (ЗЕЁ-1) GOSUB 1460, 1480, 1500, 1520, 1540, 1560 



























4970 COLOR 0,7:FOR 1-0 TO 6:LOCATE Yel 31:PRINT ОК): 
LOCATE Yel AT: RINT CES(I):NEXT 100 7,0 
«ж RETURN 



















































КЖЕ , RE PIG ° МУШТ ° RXR 
Пала rhetor ВМ » 
TT RERA MMI ROLIR RS Ê RIS — „ВОИ ° ADARE > 
"SIME Wii + НЕО » Jefe 8E МИЙ ВЕ 
зле ТРЕ ~ ПЕК ЖОНО SEE › ПН 
RIA sk (E CHE LIF ° M REEL 6 Я 
(.ї0ю)ж—й, 158 B W о із 

ГАЕТЕ, UTOR 08 о МАНЕ + 4 
жвженат,яешав ПН FE SC МИ 
кввхратпа > ЛЕНЬ ВІЛЛИ ° 


coo AES î RAR 


REFER НЕЗНА ЕШ о ТИШИНИН 
вдюявайкаханиея, WAI RMK 
СЕ рх араасаа 
ео » гет иша E 
о FRField #104990 bytes » Hifibunused " 
и Еа ТОЛЫ, ~E RFE 
с-ш ӨСІ, пио 


ШЕ КВН ОГАЕ ЕЖЕН z Et ° PJ 
: 5БЖБбЖЫ .ROLMEÉU S55 56 byte AW 1 
ПОЗИВЕ ick в ASCII RS o 
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ва 














ШІСІ 99,100 | 121,122 | 1: 
praes 101,102 | 123,12 












излез 59,60 | 81,82 |103 1041 
Базе 61,62 | 83,84 [105,106 | 127,12 
авз] 63.64 | 85,86 |107,108 | 129,130 














[mesem 65,66 | 87,88 |109,110 | 131,132 












[йт 67,68 | 89,99 [111,112 [133,134 
pasaet] 69,70 | 91,92 |113, 114 | 135,136. 
898238] 71,72 | 93,94 [115,116 | 137,138 | 
Белов 73,74 | 95,96 [117,118 [139,140 | 
































ротаи] 75.76 | 97,98 [119,120 141,2 














2.18 ERE AS (ILLIS — MR ^ ЛЯ НИЯ bytes 
ЖЕ ASCII ще 
3.5 Field ӨНЕ © 1 E melodic › Її) 
0 ЖЕрегсиззіуе, МНЕНЫ » АЖ ОК РОЇ 
—T UBER RIS ° 
ATFHOXERERRAH A ОВЯ-Е 
тюй, <D $78— поли» <> RMR (1> R 
<2> KRE ER — ROLE ааа НЕ 


по 


ЖИН ORMEA и, МЕ 
DURER АНЕ УНЕ» и о 





EKETA: 


43» ола лоза ‹1› ЗЕНОН <2> Ek ЯНИЕ <1> 
20148 bytes ФЕД <3> + Wk С» AYAN 201 

(Е bytes ° 

Ж X1» Ж <2> Bist El AC BOB IURE A. <3> + 
БОЛИ ‹1› Ж 2) BIEBERERHE A <3> ° 

Uk (D Ф110 #15 FA «3» + т <2> ИЖ 
ЕМИЛИ bytes › НЫ ° 
Е № CI» Я <2> AYRE ickBk Н НАНЕЛА, <3> > 
ЕНІМ 1) Ж <2> ВОЯКІВ <3) ° 

D «1 фі8Гіеі8 #21 A <3 + W (2 Ж 
EREISM bytes ° 

Же I CROIRE, (3> + 
БОЯН CD № (D MEERA <3> ° 

> ие #27 FA «3» + W D ФИД 
ERBISM bytes ° 

ЖЕ ‹1› № 2» @ жас ЖЕЛ. <3> › 
БӨЛІМ CI Ж ‹2› ЖЖ Л. <3> ° 

UR <1> Ре #31 ФЛ «3» + ifi (2> 238 
ЕЙІН bytes ° 

КР ‹1› Ж ‹2› (rie ic e X RO IRA, 3) + 
RIA SUME Co № <2> fJ iY ЕЗЕН A ‹3› > 


жао: 
T3 WES) «ПОМ ARMA * ERE — SECRET LOU SC 
Ст?) ~ (6) ~ (8) ~ ПОР » «2» SERIE A, <3> 
ЛИ › ЕЕ <1> ЗЕТИ ВЕЗИ ОЈ РЕНО RE 
ift icklft. (ЖИЫН СЕ Я + 
y 
И) ЕН OD YEA, СИ, ДЖИ 


ИЕН «3» + BHI <> XO» ВУЛ 
AURO ERAR T ° 


НЕЕ ИЕ жены Ж: 

1. B 38 384669 ROLIR » — E B të J 38 48 ПЕВ RFA 
ВНЖ, Е ВОЛЯ bytes HEH ERE 
BY ASCII 4% ° ЖЗИ <3> B$ fr fF IE RENT 
жй , DUE EJ AERE RE 8 НЕ tJ T fE ° 

зжехияя Co с ИЧЕМИН ЙӨР » Ti 
<3) ЮНЫ о ДОВ ЯКЕ ЛОЗА A 
ж, BODL GRUT eate ° 

3.» ж (ЕВТИН ЊЕ 35 
тже Жин, везните, ЖИГ 
ат» иа ка еве, 221442 
ELLE 

4.48 C> BTE Ci CERE 60000 AR + Ве 
AALER EFE HERAT © IROL 
Bol E RM REH 65535 СК, MEHE HW 

„ихжнонии ° 

5. нат воа BED A,» {НЕШ 
Afr b INA, пажзимшто R 
ицжилан ложи ° 

6. Яй йш Кт ЖА, жаш 
А ЕЯ 
PEET Ti - 

тъ вихавжхижи, ИЯ ВОНИ 
f ° UB LEARC S ЕУ ° аат 
зазювжеш, FARETE ° 


БЕНИ ' HMROHNT ‘Bye Bye ° 











ЕЕК Него 
Ка BUG 





ЧЕРЕН : Quick BASIC ver. 4,5 
ТЕЙИ: Quick МЫС ver. 4.5 





Conposer (ЖЕ ЕН Ж). ВЕ ARE RERUMS 


DIN ROLL(S), ROLZI(4S), Tick1(11), Жавебі3) 
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шатаса в ОЧ 
ЕД 

18 = STISASCLEFISQS, 1))) 

205 = STES(ASC(NIDS(4S, 2, 1))) 

ТҮ! = VAL(GIS) * YAL(a25) * 256 
END DEF. 





САТТЕ Я 





DEP оле! 
118 = STRS(ASCONDS(AS, 3, 1))) 
зов = STËS(ASC(RIGBTS(dS, 1))) 
Folotel = VAL(alS) + YAL(a28) + 256 
Б 


DEF Paficktoksci iS (x! )-C8RS(x! WOD 256)*CHRS(x!\256) 














InpotPi eame; 
ON ERROR GOTO PrograsError 

CLER 

8$ = SPACES(2); x! = 0 

Kane$(1) = 717: Мавеб(2) = 727: Names(3) = 37 
as 

PRINT "Hio MIFIT UL = 

LOCATE 3, 1 


PRINT. "ASBEST ВОГО И И 
War 5,1 
PRINT а а о ТИ 
LOCATE 7, 1 
тут чалат, ‹1›дв—шюиа, «АННЕ: 
ше 9, 1 
PRINT "ВОРОВ, ОРДОК 1) сола" 
РВ іе 1103 
LOCATE | * 2 * 10, 1 
PUN "HAC; 1; "жуан ёк): 
LOCATE е 2 * 10, 34: INPUT М, РИ бше 
GOSUD FileaneCheck 
IF каб) = Kone$(2) OR NaneSQ2) = Хавеб(3) TIEN 
PRINT : ВЕЕР. 
TNT "одра SABER 17 
PRINT. СИРНЕ Bü ЛІР А (ORRAL) 
апуб = INPUTS(1) 
SU Presskey 
GOTO InputFi leane 
BD Ir 
эйт 





„ааа A lp 





ок ERROR GOTO FileCheckl 
РЖ 15 4105 
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‚ мещ - 3) 





GOTO Fi eCheck? 
FileCheckl: 
[1 
PRINT : BEEP 
PRINT "IEEE: NaseS(i - 3); “REE 
PRINT ае RR, ЛІР ЛЕ (RERAN) 
anys = INPUTS) 
GOSUB Presskey 
RESME InputFi leXane 





FileCheck2: 
ок ERROR GOTO 7 
OPEN "i", #6, NameS(3) 





тзт 
PRINT “REPEAT; XaneS(3); "ААТ 
PRINT НО On)" 

[ 
ам = INPUTS) 





IF UCASES(anyS) = "17 THEN 
GOTO InpotFi ease 
ELSEIF UCASES(amS) = "V° TIEN 
CLOSE #6 
KILL Xanes(3) 


PRINT "Вл ца, ОА 





"Meca 





Opes iles: 
ON ERROR COTO Progranrror. 


91, хаб) 
#2, камз(2) 
#3, м5) 





тшен Асый. 
' занат 






Tn 
коли) 


тип 
IP Tickt(1) < Tick1(i) THEN SWAP Tick!(1), Tick!(i) 
var 

жетіге  Tiekt(1) 





"We 
тит 

PRINT "600201 уге Co" 
d$ = SPACES(201) 

GET #1, 1, $ 

WT 6, 1, 8 





ола атта атта 
SEEK #1, 202 
SEEK 0, 202 
SEEK 0, 202 


IWADARDISIESSOH YEA C 











1-6: в-6 
xl = ПОЛІ + 002145) 
PRINT 

PRINT "ECDACDÉUBURSSERH >" 
00508 Savelvent. 

00518 SavelYP. 





сара тата тыстан аа 








PROS 1000 


черви ло» 





тім. 

RIN сок; V 

00508 SavePi ller 

IF Түс! = ROLLI) 
хі = ОАК) + 002100) 











x! = MaxTick! + ROL21(8) 
END IF 
00508 SaveEvent 


TotalTiek! = 0: d$ = SPACES(4) 

FOR í = 1 10 65535 
TF TotalTick! = ОЛОИ) THEN ЕПТ FOR 
GET #1, ds 
тт, 5 








TotalTick! = TotalTick! + FaÑote! 


мп 


AND 211) = 0 THEN 10 
жала) 

= 0 TEN 10 
dS = STRINGS(2, 0) + FoicktolsciiS(x!) 
тте, , 6 





10 TotalTick! 
FOR i = 1 TO 6555 

IF TotalTick! = ROL2!(H) TIEN EXIT FOR 

CET 2, , 65 

А 83, , 8 

TotalTiek! = TotalTiek! + Рабле! 
var 








"ЖИ TER ЛИВНИ) 
кода 1103 
SELECT CASE g 
саз 1 

PRINT КРАКОВ; E; “ESHER 
се 2 

тзт КОРК; H; “ее A Co" 
сз 

тут ORON: 











ТИ 








па 
98 Savefiller 
x! = RI) = ROI) 
00608 Savebvent. 
005 Зачет 

хата 

кеті 





чєй әуесі Бледа 








Ri =1 IL 
IF MaxTick! - ROLUCI) = 0 TREN 
хі = юли) + Bt) 
ELSEIF ЛІСІ) = 0 AND 0002101) = 0 THEN 
x20 
as 
al = шеті! + ROIG) 
ED IF 

бов Checktote 

8$ = Frficktolsci (хі) 








жил) * еко 
GUB Checklote. 
icktolsciiSQu!) 





QUSE #1, #2, 3 
PINT 
TIN “rte.” 
ni 
ПІ Kanes); "БМВ ;Xanes(2); йа” 
тит 
тит авс, олту)" 
Input ел: 
an = INPUTS(1) 
IP UCASES(anyS) = "17 THEN 
GOTO при leane 
ELSEIF UCASES(amyS) = "W TEEN 
Сото Progranënd 
ELSE 
GOTO Іпри Хева 












Fi leNameCheck: 
pig = INSTR(Pi leNameS, 7.7) 
IF pig > 9 OR pig = 0 OR LENFi leKaneS) 5 8 THEN 
NameS(i) = LEFTS(Pi leNameS, В) * ЛОС 


ELSE 





ЕРТУРІТейавеб, pig = 1) + 5.07 


оо тата таты ааа та 
Замер ler: 

8$ = SPICES(15) 

GET #l, , aS 

таз, , 8 

v2 = C(2) 

SEEK #2, 2 + 16 
тих 


пилата ян овас 
SaveEvent: 

d$ = Füficktoksciis(x!) 

POT #3, , 85 

ul = AX): u2 = LOCC) 

SEEK #1, ul + 3: SEEK #2, 0-3 

зету 
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аре” 











1700) * w V 32760 
Еге 

@та,,& 

то, 

var 

45 = SPICES(ROL11(L) * в МО 32760) 
Gra. 

тю, 





d$ = SHOES (a) 
FOR = 1 TO жігі) 
сто, 
a! = ВИР: = MaxTick! 
45 = fnticktoksciis(x!) + NIDS(AS, 3) 
PT 4, вв 
var 
так 





» BAETENS 
"МАЗЕПЕ ЕНЕВО iks ° АТИНЕ. 
"Вайл ОЦЕ КАНИНА ® FU ATGSSOSUNL ich frd 














бейне: 

IF xt > 60000 TIEN 
PRINT "BET + (e; NaneS(3);. “ШІН ЗЕН”. 
PRINT “EARGOOOOM i cks IBLE, АВАНС cks” 
PRINT "ВЕН ЕН » РНК 
BD ІР 

так 





олени ИЗ 





ТЕ UCASES(any8) = "07 TEN 
GOTO ProgranEnd 





те 


Рговгайвггог: 
тзт 
SELECT CASE ERR 
st 61 
PRINT “REKE 
свет 
PRINT вие ТАНА 
CASE ELSE 
PRINT “ВЕНЫ, ЯКА : °; ERR 
PRINT "BEBQuick ВАС, АНРИ 
во SELECT 
RESINE Progranênd 


? 


+ 


РСН 







тунх CAE МЕ зиневлежияшене, вик: 
якинховажатов?икищ l1Kaps Lock]: fcü IRI IO. К.» ЖИЛ 
раат, BE И РЕЈ T > № 3*3 «adem ° 
ПРАТИ таяу 2 Kun Lock]: ЖА МЕ МИРА (switch) › 
Ct oi» RITIENE SEIS > ADAE REPC- HER ° жи (пан) ° 
Бастон, ТЖ НР 255 ë › MFF жавхжяиина ! 
сине АЛОЈЕ FERRE , ЖЕНЕ . . . 
жракнаятядатинк, DESEE IA 
DEBUG 49 A Jr RUE А Ре C IUS ЕМ ша: 































аео пікова шеке aut o mcer 
И) „пуне ха (MEE asi лава зи Sm еди 
ижиимихкап-вжм) окт X № 9 DEBUG M 17 85689 J; tE TË $ BB DOS MUR 
РЕТТИ ER Peter Nortoni BER 2N ЛЕЛЕ 
ВЪН АСЕ bat ft » БА EBE HERR ви. 


к 
K»COPY CON ЕТЕ. ВАТ 
EYESUPER 

START 
EYESUPER^Z. 












me 00 de ed 
в п 120c:0121 CS: 
> 1200122 ме 
и 120с:012 РА 
ду 120c:0127 Y 
и о 10:09 ЮҮ 
и о 120с:0128 Yi 
ты AK -іш эшли пара 
и ме 1200:0131 № 
м aps Lock 100с:0133 Psi 

0126 лаком ют 
1.4 — Lock scent tes 

ою 120с:0138 ЮТ 
120138 ЮТ 

ЕГЕСІ 


BYTE PTR [0102] 





Фант 



























РС 


гомо JE 004 тисем мої [оис 


12002 MOV 5 Сива WY — AX.2509 
12014 MD УЗ лета DT 21 


1200:0148 LOOP 0130 [0106 в 


meme мо а Е 
[ani 
ШОС mb 16 Tacome жү 0009 
mio JP om meom wm 2 
поме № пак wx мо 
таково М 16 = вала пасош шу вото 
1200:0151 PUSH АХ 120С:010А IST 21 
mom msi sI mor m маи 
mcos mS ск meo ит 10 
асом йш 00 юсю ит оюулу 


СТ ЮР ск 120C:01E3 X 00,0020 
12:0158 MP 51 їс: INT 21 











ке z 120С:01Е8 ХОР 
mcns cs: mco ме 
таже АР FAR [0106] ТТІ 
1200:0160 CS: тисін; 0 
12NC:0161 CAP aY e PTR [0101,0 — т o 


120016 ЖЕ 0169 








2:010 08 ПМ, Тк НЕ super” 
теа RET Р P eius 
EMT. їл: program installed", 
ври 120с:022Е. [Caps Lock]— Press this key to" 
С MY АХ, 10026] 120С:0250. 7 restore party's HEALTHY,” ,0D,0A 
дей. dedos 120:0268:. [Num Lock] This is the SWITCH” 





м 
т 
т 
m 
в 
120С:0218 DB are two hot-key:”,00,0A 
m 
в 
в 
в 


1200013 Мої ВАХ 


1200:0175 МО CX,0006 ec 


7 OF SUPER on/off." 00,01, 5% 





пасти. За Да 

120С:0178 WOY — AL,[SI*18] — № Би 

MIGNE ЮТ (бита. — ле bs 

ісі ЮҮ ВТЕ FTE (52260 о йй. 

120С:0185 ADD 51,0083 ` ETESUPER. CON 

lac ШОР 018 

асап ташы ОО bytes 
m 4 
w 
= ЖИН. (EYESUPER.COM) Блуе 120 | 
XR щи ВЕЛИ 1 бу MAGAZINE ЯН ° 
ют ка 





YAX:DM МР 0S, [0022] 

120С:0108 СИРО — WORD PTR (01081,524С. —check ENERE 
1206:09Е АЕ 0149 

120С:0140 NOY BYTE FTE [010F],00 ERENER 
INCDUS PUSH C$ 

1200:0146 POP 15 

07 MT 20 

ти PUSH CS FERRE 
120:01А MP 06 

120C:01AB ЮП AX, 3509 

ТИСЕ INT 21 

120с:0180 МТ [0и 

luc: wo ОЮП 

120С:018Е INT 21 

120с:010) NOY ЕСІ 








РА © є 
Шота : Q Jer 


ot 





дер? 
PNE 


<< 

е 4 

X 

'Ф,, 
| 
=> 
» 
«У у 


Z Indiana Jones 
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АРНЕМ ЖГУТ Sakkhra 
ЯЙ mn тн 
LIS » ES НГ о ГИРІ 
Sakkhra —i& > ЈЕ Eodon Әзер 
JS MUR хет £ 
СКВЕРИ ISI o з НО ЕВ 
ЧЕН НИКОМ B Sak- 
Юга ез иж, єй—итҥ 
TITRE h ПЕ + ЖАНРЕ 
TEN ( Thunderer ) б Ë 
TARE ° НАРНИИ 
тео Юя. ме, BERA 
AW tt ikna T 5 щ 
S Sakkhra ПІК» ОТАР 
° 4058 UE ЗЕТ: ЖЕ A PERE ZE 
fa m ak tk 3: , ВАХ 
We з Во 

вв жал i T 
CKICRETIERSSET ° 

TIRE MGR (GRE (Telepor- 
ter Plaza ) ПАНЫ» 
JE T EE R— › UT ана 
ЩЖ (BE 4 
) „инет RES R 
PENT RUMET ҮЛ 
ЖЖ — № Stegosaurus #9 
им, РКИ җн, паяк 
M KAWRAT ° 

травам 
ИК, — s 
КЕЧ, тусе 





» втжяятняжха в 
ЕгЕЖЕНН,ШЕЙЖ»- 
еа тА кетін 
САА сораса 
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жи, жапапипежеж 
тот» ата 
ЖЕ ЕЗЖЕ › DEEST 
HIRE Ех, кайт 
жвявтжкиган (H 5 
)ЖиЖЖЕЕ, KEHF 
Ekka: валит 
BJ: > RPF EBE T | 

мате, апикинз- 
akkhra WEA > Ѕузѕкагг ЯҒ 
возяп, MLATHI R 
пижт, ШЕИ, басы 
Мега! HammerRt T — t t 
БЖ CX PIU MF REU- 
se Hammer) = 

жата ы, RN 
SICH Bar rab ih MERT- 
ориги + -И М, НИМЯМЖ 
ша Т, RR ВАТ 
(Yes) „ар зеле ЕКІ 
"вири бтв. 
жешти. (ote TITO 
та (жжот! ите 
жттке + 
4E T Ea mto R EE 
Ж 7 9010 TESTÉ 
ВЕРАН ЕЕГ — A (Yes ) ° 
ЕШ а А в, имате 
Urali Æ% › {ER Urali МАП 
жуш I (иг 









AUR T Urali HME’ RM 
икснихкавеитие: 
ielas 

Entrance 

Entrance 
Swaplands 
Den of Cave Bears 
+ Crystal Gardens 


from Valley 
from Urali 





нат иные, RN 
явищі о Ci SERES eN 
жай) ° Зе E ушни 
жия DERE + jË hii, 
#gCrystal Gardens » FARMI 
DEKRETET o кеш 
желім» повика 
южен, водя T Ri = MEUS 
Cave Bears » ТУДИ НМ 
сЕ ян 
лете.» 

Нант, ХК 
do ERI HIE] LET ШЗ 
ж, МЕН, ДЕНЕНИН! 
BME + то Urali АЛАЯ 
ЭЛИ ТП ТЕЛДЕ? 
жже, иван 
АЛАНИИ ° 







































к, -межвинешат- я 
ат. тон е 
жж» Ваз (REG ) 
» OTHO o ЛЕВИ 
жег , {Н Urali ERN 
то REDERIER ? FT 
fei жилав ти» E 
влн-ихжужини 
Rit o RME Use T 
BARH wale Tua 
Балан, нео | 



















URALI ТО VALLEY CAVERNS МАР 





Urali bf ° # Urali tott 


LU RENE Fabozz BLA T АВ. 


Cavo ЗЗРі Cave 


оһох Belongs 
of Clay Pots 
URALI VILLAGE МАР 








Жал Финн та 
abozz АВНЕ в 
ATIR ; Darden + (iiti 
Работ IG RE 8 REKE 
Елан 
ФАНЕ, ФАА ИЕ. 
E RIME SRR 
НЕ, га ЖЗИ, 
ERRE- MUITE 
*a Б» вана то- 
arden ЕЕ ° 

вол, бирнн 
шинаны. тения 
(а пра РО E 
ж» 

юат Т.Ш: га 
MK + меко Е Пагёеп 
the ішейжт, ЖИЕ 
сал, вртови ни и 
ох, (p етник 
reat Fabozzi MHRI ° 

жшт иши: ГАГА 
етики + f S frt fE sp 8 








во Я жо ВМР ЕЕ ОВ 
AER LUE CPC Fa oz г ° FI 
ВМЕИ таро: КИС 
e Da r den; в Виет ° E 


Where Fabozz statue Held 
Hostage 
2Мапу Guards 





ТЕ ХРИ 
ВЕРарот2 ДІН, вок» (иш 
ожти о UARA зам 
ВЕЖЕ Б ХЕЛЕН ао zz ftJ 
ве ЖИА Т $^ ° ним 
ДВЕ Fabozzi SY i И 6 ВВ 
жк, ИЖ 
жати, да 
dn тк (ЖЕЖ, Ж 
Li Le а) > 
XT 3 v кеш 
TT SEA НИ Fabozz , (НИМ 
СТ Fabozz » БЕЖИ 
T ихаввежи, K Ik N 
тефх, ввйжиенан 
Ж, TARRAT EE 
16718 ве Jinny АВ 
RET BIB › #EFabozz3 8 Use 
ЗА: XE + Ра 
ozz ДЖИ ТЕЛ, ВИЕ 
ШЕИ: > КАЖ га- 
lik’ я хкнигпж 17) 
seis fU B сив 
«тех, Yt 
ЗЕЛЕН НН, два 
жт (шж! 
SEAE T Fabozzzz {k + D- 
arden BAET f A Mili» aT 
Ж hiela МЕРЕ, MARK 
(ИЗА T EERI + ви 
ЖТ Г tEDardent ШИ ° 
жа олтен ан > 
ЗАПРС И Aelia ша» 
впежпа+ ВНЕ АМТ 
га, У а Је То 
леа ЖЕНИЯ ME 
арена й. ВИШ 
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ЭНЖЕЛ, ЖЫ KERR 
ЧЕ, нити RA S 


1.Darden’s Chamber. 
2Cage Where Aiela Was Kopt 
Many Guards 

Rafkinzig : 71101, BHR 
ЖИМ, ВАВА 3 


T {КТЕ T ЖТА? 
э — СЕ о аана 
RafkinÉ388 ° Г РКИ Urali 
У JÉGE T Раво ТИЕН 
— ET EIN ОВАН > в 
Жіпі, (5 —3E EXE » ERES (cit 
таряндло, 
ТАЖИ 
arden 182) ВЕНУ: 
: CRATERE TFH” в 
МЕЖЕ НИНЕ ? ЗЕЕ РЕНЕ 
Г) ВЕЗЕ » Рагдепій Я Е. 
Ж o ви › Darden LIE 
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по АЕН ВН REOR > 
Те г. 
ЗЕТЕ сау goodbye T ° 


ME heila › ЗИП ИТО 
arden ОШ > КИНО Жапар 
тенте > 11 Fu 
тай о 
жита апихжка 
Great mesa ^ РИЯ МОЯ 
АИ Кош Cit: 
зе 

ЧЕВгаскее of the Great 
Gen 069554 0H T GE Kiela ЖЕ 
dSi)Great Сев 6, АКИ 
меня, ВЕЛО 
ат хивжаяиок 
ЕЗҮ v ПВ ВУ EIE бге- 
ас Gen ФОРИ ШИ 





’ BERE женами 
паун 
НЕ панн-влпохи 





1 жЕ, халаты 
Jor 8F2X йж, RAY : 


ES Ü 





ТЕЕ › ce ? га Косі С 

ity HBT Fy X — Baton 
> На ПР НИЈЕ НЕ T HR BE ( š 
1) е 

ЖтАПО В, ЕМЕТН 
Pax ANRE "Ні 
BERR ROTI ° Ени 
жне ВОРЕН ИЛИ — 



























ЖИЕ Косі CityMy3E » dp. 
там, ва, ЖИТТИ 
— 8 ИЈАН 4 

-вят,амияят 
& + censet — rv ood 
AR (8 (КЛЕЙ , нарекат 
ШОО o нтинита 
МАПАМА 5 tE 
и. квт лиш 
* 0303838 0 125 fo вв 
fi K Кос Hz , кмева 
KT > KN Ж Kata кош © 










































ХЕ ААН ШЙ RIRE 
зант. виа 
ВОНИ ТІНЕ 
ала с-ЖЕйПЯЕВЕ 
НИЖНИЕ o BER 






‚нине, 

ER 1 ЖЕГЕ, Косто 
UTHER ° 

п х. шл жие, 

ЗАВЕТ Koti City ER 

Бал M ERE LT 


DET EE LI 
HEKRA AZE e ЖЕ 
ERME ERTH 
THR + EALE 
RL ВРУ Н а 

ят, лат 
¿LL ЛЕ» PONERTE 


зна, FUITE BUT 
КЕ Е AR 


за-ппиянит, а 
SM АЯ» еко: на 


ы 


Hu ° RIFAT ARK ан 
EB А.Б?! Ко IS ЕН ЖЫ 
пеш, деки ЛК 
Ж» кенже? 

ат-в КАН 
BAFIR BERME 
HER ° ВЕ HANK К 
HKH ESE EE LE 
ROKAM жж ЕЕ 
СЕА 038 Т, RME 
—PUH — ERE RIED ^ ие я 
жебе Косі Shield ЊЕ 
ЦЕО РАЈЕ ° 

за, ЗАП ВНЕ Bog 
Вовђ КАНЯ, РЕМ > 
БДЫ: РУШ. 
FRET o EIT E ER 
ЗП ЧЕТ — Fo FREK- 
otl буд, — ER 
имат. юзе XCTI 


Я РЕ, RIPE 
ОУ EPUERUNGRS J > 
РП Кос Cityff ве B 
дж, ИТ Е, XM 

— BE RU РЕ IB T] + «МШ 
инвадхвнян, кво 
в, паяшюячелвия 
T жилама ROGO. 

кянапка-нМаск 
rod › НЗ Kot! Shield r 
ЖЕЗГЕ Т Аж БН 
FE—— ИЗО КИМ 
же, не аи ни 
ТЕ RAINHAS 
жЕ Нш , ТЕРЕН ЗО ня 


ШЫРА eme ps 


мр, ZS 1 SZ L RC ВВ 
Узар ЕФИМ J1 CO ет 


ЖЕНЯ, RY 
REIT А К ^ РАМАТ 
WERT ат 
EIER (Control Panel ) Ж» 


инат, вно 
HONO Ерани то» РУЛОНІ 
ТЕЖ, e OU PLAT RET. 
ТАТ е RAAF REED 
Spector ЖКН ЯЕ ВИМИТИ ° 
FORE НЖАТ ° 
вал: "ишт 
МААЛ, ММ 
tk Eodon Же Т › if 
AAKBEART КИНУВ. Я 
<= EE TRAM ШК 
E ЯІЗЕВИМ АНІ М Х ЖЕ 
арылар ара 
ЖЕНЕ, bi i 
ни 
 апидави кон! City 
ЕНЕН о | 
вен, хив 
КИНЕ (во) „пя 
Kik SHEA ЕНИ» 
FTR ЛОНГ ° 
за, ЖЕНЫ ЕТИ юн 
City ЖЕР Т ° 








E SRE EE ЛІМІТ 
FAH ARHI r RA 
пюхзщищ+ NE Ze Se tt N 
вал, жия» e RT 
ватит в ALOE ES 


А-К Transfer Plato Locations ^ Katalkotl 5Vending М 
Control Panel “Meeting Най. 0 Battleground жож, ЖЖЕНИЕ 
> Gonerator Control Room _ "Myrmidex Quarters 11 Yunapotil 
з HospitaVInfirmary. тея Quarters 22 Bridge across lava pit 
“Important things jutomatons 
14.Dr.Spoctor 


69381 - unii 


‚жие уат 
$ овен, витне 
Koti CityRTZtRTicht > ELIT DI EET 
icat) ЗЕЕ T (125373 PE RET ° RRN ERT 
"ЭЕ" Eodon Gh TE 4 Ват, m Lord British ЖЖ 
FORM T з ииз. , ж - г 
Зи ЛАТ › рай 
свет са 1463889 Ш F ERE 
ЖЕ» RERET Eodon BH > ЕНА 
заванакашежа R — дойапиекенетлло 
HEMRA: ам, йл ЕЕ (но) - блеют 
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ine 222) e 4 EB X V 







J.Quecn’s Chamber 


ы Р ?Quen King 
EEK : C Indi iE [Chamber of the Altered 
KETI up Moonstone 

Main Entry ( from Spider 


Cave ) 









Ak 

Dr.Spectorf HEE MFA 
ACH ЖА, ЖЖ , 
3⁄2 R if НЕ — MERREM + 
пн, жхвя-шижт, на 
жек RERO E 


WW T F3E Тгоїїо» S- 
ku> Fritz ~ Jimmy ` Dr. 


вт 






NERIS GE А DLE 
333 XB ELEMEZ 
ШЕЖЕ, РИН РАВ ӘН 
жибти, ВО РАННІ, 
ВТК, FAAM 
НЕБЕ ТВ + сие 
За» БИ! 


HEA ^ ЯЯ ЖП .брес- 
T ° Dr. Spector T ЯН.» 
TRE Eodon › RENE 
Le Indi > ДЕЯ, Я- 
айш, RS, 
TN панилт ве 











пъняхаванка, 
ПИРЕ НЕ ET j TK 
ЕЛЕНА , самия 
жш! 


383018 Disquiqui HHR 
des 8k 03 en ? ду РЕ НОВ Тор- 
uru iif feto v ROMERERDIS- 
quiqui НТ EGK PHA ^ de 
ELI LIAE EMI 





ET: 

ИСЕҢ АГІЙДЕТеТероггег 
Plaza ЧИН + РИВА, fr 
пат ^ 


тв: 

HI & 7), ЖАНЕ 
мас: #- жители 
TENER ES ^ HUE PRIEST 
ааа HHD- 
ug Вопъйс t be A Ó ЈЕ 
ERAR 255, ifi ELT fr n£ 
ке (FORCE — M) о 
=, AGE TAR B BI ST КЕНЕ 
' пянт-4 7397), ЮЖ 
BIBT des Fh o — EMRE 
жагенкла ще 








во: 
_ RATRE REM 
T Kot| све ВЕ s RK 
медта, СОЕ ТЈ 
Kot] ShieldfüBlack rod WH 
RH 





Я 4 је Level 4 Upper Level 


BEF RN T FKE N 
ВАВА ОНЕ 
вел, Еа та 
"TELE ВЕЛИКО ° ПЕНИЕ: 
патижтниет, то 3 
Ae 36 RENE > Бе садів ЖИВ | 
HAR- m mie COH 
Lad p liis M 





1.EM = R60 • 

2.0 "2% 

3.8898 E051: E ST DR REG y; PJ 
БЕТІ 

4.— мини 

6. Еа Е ° 

т.ж > 

зживико 

9.— Ei ° 








Dwarven Ruins 


DER o 
TR ERR SIL POI ° 
23—18 "stone scepter у ЖШ 
«вик» 
д-явенъзжиео 
ЗВЕР 19H E > 
7 GR нй 2201531 о 
ВАВА ZH RR TT BB Ж" о 
LE тока СРЕ У ДЕТ 


с.л он 


та 


жи (tdt) ° 
PET Se РТИ 


ПЕРИКА ЕЕ РАДЕ 
Be 























8 ла. 
АЗИЗА, o BEERA 
тин 4626 168 © 
РИШОН! ° 
BR : T Kruen 
— —The south vall, ° 
DAE : " Kruen — —the hol- 














= шығ» 
SARPI ^ Distone medallion 
виза, онко 


GI Ear par" ° 


BAE: Г Oracle of Knovl- 
edge, ° 
GE ГОЉ of Power у ЖА 























































































































ж CORK DDIM 29 8 der of тіздепі е Бала + B| p LRH MLK 
zx. ELLET T DLI жже аташе 
= ВИНЫ ° во АЛА F W DPH Re 
тшше л o Wi CLE Ll > 135 HHR o 
Е саа TI e Жени • 
VONUPAMEACEWRU 5 КЕЖЖВИНЯ MEH 
тияк л ENN . 
Bout e SOTIN винде: 
екотицимиже T Emergency Exit, ° 
В ща: There is evil ж 
E: Г Kruen — — king v hich lies beyond this 
Т the mountain; ° room, ° 
T jm | 
7 
| 












































































































































Ж в а Ж 





= САСИН каза MKE 
Y THEE саты ° TUR AX SOMMA HIR 
f T~ UI Уса E EZEM х • 
лете TEE лаве (W) вв 
Г; TIR- MEAM N-A s 





234 — Healing BSN дуел зараа ° 
вее? ° 


Я м Level 5 Dwarven Ruins and Camp 
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иш mi р П 
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Бы” | 

| | | 

ЕТКЕН Т.ч 86567 ° 
Бк ЕЧ јој E UF E ЕСЕ А вой” 
» A0 FJ KIR FI TE RE JAE ? ЕА 3.908 0% о 
БЕТА, тъжеилщае б РЕЖ ° 


жив: EDR METUR ТЕЖЊЕ ° 
Естен! зжаноже 


е” ғ” + 
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ESN LH Vd ERE ры 
ЗВ РУБ ВИЙ ° 


39 pu i 0978 ° 
ЖЕНЕВЕ 
369 Jy o 
НИМИ ° 
ОМ ° 

EE NR I В аб fo жн; 
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